﻿''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''            -         JSONSERIAL v.1.0          -               ''
'' THIS ADD-ON CREATED BY MRZAGHAR ,Copyright TheMrZaghar ©  2015 ''
'' FaceBook : http://facebook.com/MrZaghar                        ''
'' Youtube  : http://youtube.com/TheMrZaghar                      ''
''                                                                ''
'' Thnx To : Dev-Point.com                                        ''
''                                                                ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports MrZaghar.JsonSerial
Imports System.Text.RegularExpressions
Public Class FrmMain
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start(LinkLabel1.Text)
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Process.Start(LinkLabel1.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(Json.GetValue(TextBox1.Text, TextBox2.Text))
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim vstring As String = Regex.Matches(TextBox1.Text, String.Format(TextBox3.Text), RegexOptions.IgnoreCase).Item(0).Value
        MsgBox(Json.ValueDecode(vstring))
    End Sub
End Class
